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FFF 000 000 RRR RRR RRR = RRR TTT LLL 

FFF 000 000 RRR RRR RRR = =RRR TTT LLL 

FFF 000 RRR RRR RRR = RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 
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sepa Push, Pop, Allocate, and deallocate LUB/ISB/RAB 1ossep-19 r 90:13:36 VAX-11 Bliss-32 V 505748 
| ZTITL 
1DENT = ' File: FORCB.B32 Edit: LEB2005 
= 


MODULE FORSSCB ( 


OOoCooe 
Vilwr— 


BEGIN 


eee REE A AERA AAAARAA AEE RE RETA RETA E AAA ARARETRA AREAS 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
'* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
it ALL RIGHTS RESERVED. 


'* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USE 
ONLY IN ACCORDANCE WITH T TERMS OF 


Ie 


a a De a ad dd nd ad od SOOO 
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D AND COPIED 
SUCH bene’ AND WITH THE 


!® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
:* OORPORAT i bn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
.* °o 


iw DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
t® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


MPO 3 1 OOO 
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' * 
ie TRANSFERRED. “ 
a 
® 
® 
® 
*® 
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® 
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++ 

FACILITY: Language support Library 

' ABSTRACT: 

This module interfaces to FORS$CCB_DATA to allocate, 


deallocate, push and pop the LUB/ISB/RAB data structure, which 
is central to the 1/0 system. 
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' 
i 
i 
i 
! 
i 
! 
003 ' ; 
Oo8 ENVIRONMENT: User mode, AST Level or not or mixed 
Boe AUTHOR: Thomas N. Hastings, CREATION DATE: 01-June-77 
Boe MODIFIED BY: 
044 : Thomas N. Hastings, 01-June-77: VERSION 9 
045 ! (Previous edit history removed. SBL 24-Sept-1982] 
0046 ! 1-032 - Remove AST reentrency window by performing IOINPROG interlock before 
0047 : LUN_OWNR test in FORSSCB_PUSH eplace individual zeroing of ISB 
0048 : bits with a zero of the word in which they are contained for better 
0049 ; code. Use a new structure for OTSS$$V_LUN_OWNR for smaller code. 
0050 1 SBL 25-Sept-1980 
Ones ! 1-033 - Include secondary message voRs J9.NOMF oR when signaling 
038 i FORSK_MIXFILACC. JAW 29-Aug-1981 
05 ! 1-034 = Clear OTS$$V_IOINPROG before signaling FORSK_MIXFILACC £9 
054 } ensure that yort is left in a consistent state. SPR 11-38566. 
055 } JAW 2 “et 81 . ; 
B28 ! 1-035 - Replace $ ESERIPTOR in edit 1-033 with UPLIT to keep code PIC. 
005 : JA ~Aug-1981 
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Push, Pop, Allocate, and deallocate LUB/ISB/RAB 18-s¢ ~penn 1386 99: }: 38 


ya 8 0-742 
-Sep-1 ISKSVMS L.S 


4. 
ORRTL. 


nur 


2 
RCJFORCB. 832; pi (1) 


= 
ms 


X-11 Bliss 
b SKSVMSMAST 
1-036 = Add missing external declarations. SBL 2-Dec-1981 


Remove all references to OTS$$ routines and data structures. 


: 1; 

: 1} 

3 i The data structures are row ee wry 97 although their layout 

; 061 1! and use is still in parallel with BASIC'’s. Change to use 

; 062 1! prologue file, and te He shes nup for inclusion in FORRTL 

; 065 1! shared ima ae Bn 4-Sept-1 

; 0064 1 ! 2-002 - _ 4 ean sb u8 for backlink to previous LUB instead of 

3 0065 1! econd ent ry n'y FOR $SAA_LUB_TAB. Add Logic to allow simultaneous 
; 0066 1! ENCODE /DECO E/Internal Atte operations. SBL 2=-Dec-1982 

3 0067 1 ! 2-003 = Allocate FAB and NAM along with RAB and rest of CCB from heap. 

3 0068 1! SBL oes anni98 3 

8 0069 1! $-508 - Deallocate RFA cache if necessary. SBL 2-June-1983 

; 0070 1 ! 2-005 - rneoge reference in DEALLOCATE from LUBSA_RFA CACHE_PTR to 

; 0071 1! RFA_CACHE_BEG to fix problem with BACKSPACE. 

; 0072 1! LEB 27-Jan-1984" 

: 0073 1 !-- 
: 0074 1 
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FORSSCB Push, Pop. Allocate, and deallocate LUB/ISB/RAB Jo~senn 1386 00:43:36 VAX=-11 Bliss-32_ V4.0-742 Page 3 
2-005 Declarations 14-Sep-1984 12:31: DISKSVMSMASTER: CFORRTL.SRCJFORCB.B32;1 (2) 
6 0075 1 &SBTTL"Declarations' 
7 6 ! 
78 7 ! PROLOGUE FILE: 
BBR 
: REQUIRE "RTLIN:FORPROLOG'; ! $tructure and symbol definitions 
' 
i i TABLE OF CONTENTS: 
85 : 
86 
7 FORWARD ROUTINE 
8 FORSS$CB_PUSH : JSB_CB_PUSH NOVALUE, ! Allocate or find LUB/ISB/RAB - beg of each I/0 statment 
9 ALLOCATE : CALL_CCB NOVALUE, ' Allocate CC 


JSB_CB_POP NOVALUE, 


: ® ' Pop LUB/ISB/RAB = end of each 1/0 statement 
DEALLOCRTE : CALL-CCB NOVALUE, 


' 

' i 

' Deallcoate CCB | 
FORSSCB_GET : JSB_CB_GET NOVALUE, ' Get current LUB/ISB/RAB (called by non-shared code only) — 
FORsSCe FETCH : CALL a NOVALUE, 
FORSSFP_MATCH : CALL CCB NOVALUE, | Get CCB that matches FP 


INITIALTZE_INTFIL_QUEUE: NOVALUE; ' Initialize INTFIL_QUEU 


ooo 
Ono 


i Include FORS$SCB_RET as a synonym for FORS$$CB_POP to maintain 


le 
compatability with old versions of FORSSERROR. 
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1 
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1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 GLOBAL BIND | 
1 ROUTINE 
FORS$CB_RET = FORSS$CB_POP : JSB_CB_POP NOVALUE; 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
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: GLOBAL STORAGE: 
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WOO OOO OH 09 0000 0009 09 00 09 SII NS NN NN NP AAA AAAA AA MINIT EE OO 


LOBAL 
FORSSA_CUR_LUB : INITIAL (0); ! Contains the address of the current LUB 


+ 

! The following structure is used for addressing FORSSAA_LUB_TAB. 
! It is similar to VECTOR, but offsets the index so that 

} negative logical unit numbers can be used. 


STRUCTURE 
Fonsh eae Cl; N, LB, UNIT = 4, EXT = 0) = 
® 
(FORS$LUB_TAB_ST + ((I = LB)*UNIT))<O, ZBPUNIT*UNIT, EXT>; 
'¢ 
! The following table of longwords is used to associate LUB addresses with 


' unit numbers. Each entry contains 0 if there is no 
LUB, or the address of the LUB. 
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AL 
FORSSAA_LUB_TAB : VOLATILE FORS$LUB_TAB_ST 
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FO Push, POP. Allocate, and deallocate LUB/ISB/RAB 18-Sep-1984 00:17:36 VAX-11 Bliss-32 V4.0-742 Page 4 
2- Declarations 14-Sep-1984 12:31: DISKSVMSMASTER:CFORRTL.SRCJFORCB.B32;1 (2). 
197 1 (-LUBSK_ILUN_MIN + LUBSK_LUN_MAX + 1, LUBSK_ILUN_MINJ; 
199 1 
00 


OWN STORAGE: 


+ 
Each bit of the following BITVECTOR corresponds to a LUN. The bit is 
set if there is any 1/0 activity outstanding for the LUN. The bit 
must be kept here rather than in the LUB because there can be 1/0 
activity outstanding even before the LUB is allocated. 


The name FORSSV_IOINPROG is bound to the appropriate offset in the 
bitvector so that the correct bit can be directly addressed by unit number. 


Mrororororsrorrn 


PWN OOONOU EWN O ODONAUNE WN SO CONOUE WN 


OWN 
IOINPROG_VECTOR : VOLATILE BITVECTOR 
C((-CUBSK_ILUN_MIN + LUBSK_LUN_MAX + %BPVAL)/%BPVAL) *%BPVALI; 


D 
FORSS$V_IOINPROG = JOINPROG_VECTOR ([((7=LUBSK_ILUN_MIN)/8)*8]: 
VOLATILE BITVECTOR (CI; 


'¢ 

! The following is a queue (non-interlocked) that holds LUBs for ENCODE/DECODE 
! and internal file operations. This permits more than one of these operations 
; to be active simultaneously. 


OWN 


WN —O OONOUSWN HOO DNAULS WN —OVDONOUEW 


ww’ L_ QUEUE: VOLATILE vitlce 


INTFI [2] INITIAL (0,0), ee 
V_INTFIL_QUEUE_INIT: VOLATILE INITIAL (0); ! 1 when queue initialized 


: EXTERNAL REFERENCES: 


EXTERNAL ROUTINE 
FORSSERRSNS_SAV : NOVALUE, 
FOR$$SI1G_NO-LUB : NOVALUE, 


SOOCOCOCCSCOOOSO COCO OOCOOOOCOSOOOOOOOOOOoOoOO 


' convert FORTRAN err # to 32-bit code 

' Pass LUN explicitly since no current LUB. 

' and call LIBSSTOP. should never return 

' SIGNAL_STOP OTS$_INTDATCOR (INTERNAL 

CORRUPTED IN RUN-TIME LIBRARY) 

' in FORTRAN environment 

! Signal a fatal FORTRAN error 

! Get virtual memory 
' Free virtual memory 


FORS$SIG_DATCOR : NOVALUE, 


FORSSSIGNAL_STO : NOVALUE, 
FORSS , 
FORSSFREE_VM : NOVALUE; 
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FORSSCB Push, Pop, Allocate, and deallocate LUB/ISB/RAB 16-Sep-1984 00:13: VAX-11 Bliss-32 V4.0-742 Pa 5 
2-005 Allocate or find CCB 12788-1382 REL DISKSVMSMASTER: LFORRTL. SRCJFORCB.B32: 1" (3) | 
8 $ GLOBAL ROUTINE FORSSCB_PUSH (ZSBTTL*ALlocate or find CCB’ | 

8 4 LOGICAL UNIT, ' Logical unit no. (by-value) 


LUN_MIN ! Minimum logical unit number (by-value) | 
: JSB.CB_PUSH NOVALUE = 9 yovece | 


'e4¢ 


i FUNCTIONAL DESCRIPTION: 


FORSSCB_PUSH checks for legal logical UNIT number 

which varyies depending on whether this is OPEN or 

default open. If logical_unit already has 

@ LUB/ISB/RAB allocated, only part of the per I/0 statement part 

of LUB/ISB/RAB is cleared, namely just the status bits in ISB. 

Otherwise virtual memory fs allocated for this logical_unit 
and the entire block is initialized to 0. Then the allocated address 
is remembered in OWN table FORS$SA_LUB_TAB indexed by 
lLogical_unit. The RAB is initialized to constants which 
do not change during execution. 


If an 1/0 statement on this unit is already in progress, this 
routine signals an error and does not return. 


CALLING SEQUENCE: 
JSB FORSSCB_PUSH (R2=Logical_unit.rl.v, RO=lLun_min.rl.v) 
FORMAL PARAMETERS: | 
LOGICAL_UNIT.rl.v Value of logical unit for which ae ee desired (signed) | 


COCCOOOOOOOOOOMOC 


POPOPOPONOPONI NNN NoPoPononononoporofofpononononorny 


SNA AAAA AAA MINIM IVIVIVIVIVITE 


May be negative for TYPE, ACCEPT, READ, PRI 
LUN_MIN.rl.v Value of minimum legal logical unit number (signed) 


Since in a register, must be present. 
IMPLICIT INPUTS: 
FORSSAA_LUB_TABClogical_unit] 
FORSSV_IOINPROGCLogical unit] 
IMPLICIT OUTPUTS: 


Adr. o 
this unit 
1/0 in 


f LUB/ISB/RAB or 0 for | 
progress flag 


CcB : Base pointer set to adr. of LUB/ISB/RAB for logical_unit. 
Tata pL UO SARE Logical unite Adr. of LUB/ISB/RAB for logical_unit 


o ss 
MEW OOOO UFWN 0 OONOU SWAN —"OOmO~n ARGV LOSS aR AR Ooo Mw 
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LUBSW_LUN signed logical unit number 

RAB$B_BID 

RABSB_BLN 

RABS$V_TPT 1 | 

RABS$V_RAH 1 

RABS$V_WBH 1 

RAB$V_LOC 1 
ROUTINE VALUE: 

None | 
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SIDE EFFECTS: 
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‘+ 
! Test and set 10 in progress interlock before doing anything else! 
:_If this is ENCODE/DECO e 


E/Internal File, ignore interlock. 


IF (TESTBITSS (FORSSV_IOINPROG [ .LOGICAL_UNITJ)) 
IF _;LOGICAL_UNIT NEG LUBSK_LUN_ENCD 


Kk 7 
Push, Pop, Allocate, and deallocate LUB/ISB/RAB Je=se0= 138% 00:43:36 VAX-11 Bliss-32 V4.0-742 Page 6 
Allocate or find CCB 14-Sep-1984 12:31: DISKSVMSMASTER: CFORRTL.SRCJFORCB.B32;1 (3). 
40 3 ' Allocates virtual memory if nesded. 
4) 4 : SIGNAL _STOPs FORS RECIO_OFE (40="RECURSIVE 1/0 OPERATION’) if 
8 5 ! Logicat unit already s-in the middle of an I/0 statement 
4 : } SIGNAL STOPs FORS_INVLOGUNI (52="INVALID LOGICAL UNIT NUMBER‘) 
44 ’ if Logtcal unit i§ out of range. 
45 8 : SIGNAL_STOPs FORS_INSVIRMEM (41=" INSUFFICIENT VIRTUAL MEMORY') 
re H if cannot expand program region if needed. 
77 | 
48 1 
49 : BEGIN | 
50 
51 4 BUILTIN 
26 2 TESTBITSS; 
| 
54 : 7 EXTERNAL REGISTER 
55 8 CCB : REF SFORSCCB_DECL; 
56 319 
57 320 '¢ 
58 321 : Check range of logical unit. If out of range, , 
22 : § 1 SIGNAL_STOP FORS_ NVLOGUNI (32="INVALID LOGICAL UNIT NUMBER") 
61 324 
4) 325 IF ((.LOGICAL_UNIT GTR LUBSK_LUN_MAX) OR (.LOGICAL_UNIT LSS .LUN_MIN)) 
6 326 THEN 
64 327 BEGIN 
65 328 FORS$$SIG_NO_LUB (FORSK_INVLOGUNI, .LOGICAL_UNIT); 
329 RETURN; 
330 
; 1 
335 
334 
335 
336 
337 
338 
339 
340 
3 
3 
3 


| 
BEGIN | 
FORS$SIG_NO_LUB (FORSK_RECIO_OPE, .LOGICAL_UNIT); | 
te 

: 


aE pete tthe tr dhe tte GOA PPE AMAA ARI TAS AS ATTY | 


! The following assignment generates no code, but it causes BLISS to generate 
! optimal code for the remainder of the routine by prevent tn the CSE | 

! ,LOGICAL_UNIT=LUBSK_ILUN_MIN from being bound to R2. Thanks, and a tip 
' of the kéyboard to Steve Hobbs. 


LOGICAL_UNIT = .LOGICAL_UNIT; 
'¢ 
Get the CCB address for this unit. 
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CCB = .FORSSAA_LUB_TAB [.LOGICAL_UNIT); 
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iss-32 V4.0-742 


14-Sep-1984 Dd 


4 
Allocate a LUB/ISB/RAB if necessary. 
IF .CCB EQLA 0 

THEN 


ALLOCATE (.LOGICAL_UNIT) 
ELSE 

LUB/ISB/RAB already allocated. Perform sanity check. 
"BEGIN 


IF ((.CCB Baan: NEQU .LOGICAL_UNIT<0,16,1>) OR 
(.CCB CRAB$B_B1D) NEQU RAB$C_BIDB)) 


HEN 
- FORSS$SIG_DATCOR (); 


+ 
Initialize certain ISB fields, to save FORS$IO_BEG the trouble. 


8 HSeei- far" STAT] = 0; 


¢ 
ce ISBSW_FMT_CEN) 
+ 


C 
C 
CCB CISBSA_USER_FPJ 
' 
i 


Link in previous LUB and make this LUB the current one. 
CCB _CISBSA_PREVIOUS_ LUB] = .FORSSA_CUR_LUB; 
FORSS$A_CUR_LUB = .CTB; 

'+ 


; Return with register CCB loaded. 


RETURN; 
END; ! End of routine FORS$$CB_PUSH 

-TITLE FORS$CB Push, Pop, Allocate, and deallocate LUB 

/1SB/RAB 

-IDENT \2-005\ 

-PSECT _FORSDATA,NOEXE, PIC,2 
00000000 00000 FORSOA CUR LO: 

00004 FORSSAA_LUB TAB: : | 

00204 LOINPROG VECTOR: | 


BL 
00000000 00000000 00214 INTFIL_QUEUE: 
-LONG 0, 0 2 


X-11 Bliss-3 - Page 7 
SKSVMSMASTER: CFORRTL.SRCJFORCB.B32;1 (3), 
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porsece Push, Pop, Allocate, and deallocate LUB/ISB/RAB 16- sop-19 4 t 99: 13: 36 VA 
2-00 Allocate or find CCB 14-Sep-1984 I 


00000000 0021C V_INTFIL_QUEUE_INIT: 
LONG ~ 0 


4.0=742 8 
ORRTL.SRCIJFORCB. 832 79 * 3) 


FORS$V_IOINPROG= SERRSNS” VECTOR+1 
-EXTRN FORSSERRSNS SAV 
~EXTRN FORS$SIG_NO- PUB 
-EXTRN FORSS$SIG DATCOR 
~EXTRN FORS$S1GRAL STO 
EXTRN FORSSGET_VM, FORSSFREE_VM 


~PSECT _FORSCODE,NOWRT, SHR, PIC,2 


00000077 —8F 52 D1 00000 FORS$CB_PUSH:: 
CMPL  LOGICAL_UNIT, #119 : 0325. 
05 14 00007 BGTR : | 
50 52 01 00009 CMPL LOGICAL _UNIT, LUN_MIN : | 
06 18 0000C BGEQ 2$ : | 
52 DD OOOOE 1S: PUSHL LOGICAL_UNIT + 0328 | 
20 9D 00010 PUSHL #32 : | 
1§ 11 00012 BRB 3$ : | 
15 00000000" EF 52 £3 00014 28: BBCS LOGICAL -UNIT, FORSSV_IOINPROG, 4$ > 0337 
FFFFFFFB BF 52 01 Boe ie CMPL LOGICAL “UNIT , #5 ; 0339. 
0c 13 0002 BEQL ; 
52 Dd 00025 PUSHL LOGICAL_UNIT : 0342. 
28 DD 00027 PUSHL : | 
000000006 00 02 FB 900¢9 3$: CALLS #2, FORS$$SIG_NO_LUB : | 
05 00030 RSB > 0341) 
5B 00000000'EF42 D0 00031 4$: MOVL § FORSSAA_LUB_TAB+32CLOGICAL_UNIIJ, CCB > 0359) 
09 12 00039 BNEQ : 0365) 
52 DD 00038 PUSHL LOGICAL UNIT : 0367 
0000v CF 01 FB 0003D CALLS #1, ALLOCATE : | 
12 11 00042 BRB ; 
52 C6 AB B1 00044 5$: CMPW =58(CCB), LOGICAL_UNIT + 0374 | 
05 12 00048 BNEQ ; 
01 6B 91 OO004A CMPB =s-s« (CCB), #1 : 0375) 
07 13 0004D BEQL ; | 
000000006 00 00 FB OO04F 6$ CALLS #0, FORS$SIG_DATCOR : 0377) 
96 AB B4 00056 7$ CLRW  -106(CCB) 3 0384 | 
FF72 CB B4 00059 CLRW © = 142 (CCB) : 0385 
FF4C CB 04 0005D CLRL -180(CCB) : 0386 | 
FF48 CB 00000000° ai DO 00061 MOVL FORS$SA_CUR LUB. -184(CCB) ; 039¢ 
00000000" EF B DO 0006A MOVL CCB, FORS$A_CUR_LUB : 039 
05 00071 RSB : 0400 | 


; Routine Size: 114 bytes, Routine Base: _FORSCODE + 0000 


338 0401 1 


FORSSCB 
2-005 


; 368 
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N 7 
- Pop, Allocate, and deallocate LUB/ISB/RAB 16-Sep-1984 00:43:36 VAX-11 Bliss-32 V4. 
cate CCB 14-Sep-1984 12:31: DISKSVMSMASTER:CFOR 
1 ROUTINE ALLOCATE (XSBTTL'ALlocate CCB’ 
LOGICAL_UNIT ' LUN to which to allocate the CCB 
) : CALL_CCB NOVALUE = ! Allocate LUB/ISB/RAB 
e+ 
' FUNCTIONAL DESCRIPTION: 
Allocate heap storage for the LUB/ISB/RAB/FAB/NAM. This is done 
the first time a logical unit is referenced, and the first 
time after a CLOSE. 
If this is an ENCODE/DECODE/Internal File, try pete ing a ‘'short LUB"’ 
from Q_INTFIL_QUEUE. If empty, allocate a short LUB. 


WEWPOPIPOPIPONOPIPININININININININDYIY tt tt a tt 


CALLING SEQUENCE: 
ALLOCATE (.LOGICAL_UNIT) 
FORMAL PARAMETERS: 


LOGICAL_UNIT.rl.v LUN to which to allocate the CCB 
IMPLICIT INPUTS: 
INTFIL_QUEUE Queue of internal file LUBs 


IMPLICIT OUTPUTS 
FORSSAA_LUB_TAB C.LOGICAL_UNIT] and CCB are set 
SIDE EFFECTS: 


Allocates virtual storage. 
Signats if virtual storage is exhausted. 


BEGIN 


EXTERNAL REGISTER 
CCB : REF SFORSCCB_DECL; 


BIND 
FAB = CCB: REF $FORSFAB_CCB_STRUCT, 
NAM = CCB: REF $FORSNAM~CCB~STRUCT: 
BUILTIN 
REMQUE ; 


'¢ 
Split depending on whether or not this is an internal file. 


IF .LOGICAL_UNIT NEQ LUBSK_LUN_ENCD 
BEGIN 


42 
TL. SRCJFORCB.B32 


9 
(4). 


vu" 
2 


| 
| 


FORSSCB Push, Pop, Allocate, and deallocate LUB/ISB/RAB 18.56 Sep-1984 00:13: VAX=11 $-32 V4.0-742 Page 10 
2-005 Allocate €cB 14- ~8ep-1984 90:47:38 DISK$V neh TER: TCFORRTL. SRCIFORCB.B32:1> (4). 
: 397 459 + 

; 398 460 i This is not an internal ‘ile or ENCODE/DECODE. Allocate a full-length 
; 399 461 } i from heap storage and initialize it. 

: fof te 

3 188 464 & CCB = FORSSGET ns ((ISBSK_ISB_LEN + arth, LUB_LEN + RABSC_BLN + 

: 40 465 FABSC_BLN AMSC_B LNT, gt OGiCAL NIT); 

> 404 46 CHSFILL (0, Nuask LUB~ CEN $c BLN TABS _BLN + NAMSC_BLN, 

: 405 46 .CCB + ISBSK_TSB CEN); 

; 406 468 CCB = .CCB + ISBSK_ISB_LEN + LUBSK_LUB_LEN; 

: 407 re 14 CCB CLUB$SW_LUN) = (LOGICAL_UNIT; 

; 408 470 CCB CRABSB_BID) = RABSC_BID; 

: 409 71 CCB LRABSB_BLN) = RABSC_BLN; 

; 410 pers FAB LFABSB_BID) = FABSC_BID; 

3 411 047 FAB LFABSB_BLNJ = FABSC_BLN: 

: tig Bere NAM CNAM$B_BID] = NAMSC_BID; 
3 41 475 NAM CNAMSB_BLN] = NAMSC— BLN; 

> 414 0476 CCB CRABSL-FAB] = FAB (0,0,0,0); 
3; 4615 047 

: 416 0478 CCB CRABSV_TPT) = 1; 

s 617 0479 ccB RABSV_ RAH) = 1; 

; 418 0480 CCB CRAB$V_WBH) = 1; 

; 419 0481 CCB CRAB$SV_LOC) = 1; 

: 420 O48¢ FORSSAA_LUB_TAB C.LOGICAL_UNIT] = .CCB; 

> 421 48 RETURN; 

; age 484 END; 

3 ¢s 0485 

: 424 0486 1+ 

: 425 0487 i This is an internal file or ENCODE/DECODE. First check to see if the 
; 426 0488 ' queue of LUBs has been intialized. If not, initialize it. 

: 427 0489 ie 

: 428 0490 

3 rs 0491 IF NOT .V_INTFIL_QUEUVE_INIT 

; 430 049 THEN 

3; 431 049 INITIALIZE_INTFIL_QUEUE (); 

: $38 0494 

; 43 0495 § + 

:; 434 0496 ' Try to remove a LUB from tho head of the queue. If empty, 

3 655 0497 ' allocate one instead. 

: 436 0498 ie 

: 437 0499 

; 438 0500 IF REMQUE (.INTFIL_QUEVE (OJ, CCB) 

; tip $363 — BEGIN 

7 «441 $808 oe aie tet 

3 (44 0504 oa was empty. Allocate a short LUB and initialize it. 
HBB : 

3 rr 0307 CCB = foresee! VM (CISBSK_ ISB_LEN + LUBSK_LUB_LEN + RABS$C_BLN), 

3 44 $809 CHSFILL (0, CuBsK LUB_LEN + RABSC_BLN fee + ISB$K_ISB_LEN); 

> 448 510 CCB = .cCB + I Ha 1$8 LEN + LUBSR_LUB_L 

; 469 511 CCB CLUBSW_LU = “LO AL_UNIT; 

; 450 31 CCB [RAB$B-B1DJ = RABSC_BID; <2 Me 

; 6451 51 CCB CLUBSV_DEA J=1; ! Force “‘deallocation’’ on POP 

: $3¢ 514 END 

: 4§ 515 ELSE 


um 
oO 
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FORSSCB Push, Pop, Allocate, and deallocate LUB/ISB/RAB td Sep-19 213: VAX-11 Bliss-32 V4.0-742 Pa 11 
2-005 Allocate €cB 14- ~300 71382 00:47:38 DISKSVMSMASTER: CFORRTL. SRCJFORCB.B32;1 79° (4) 
; : ¢ 218 CCB = .CCB + ISB$K_ISB_LEN + LUBSK_LUB_LEN; ! Get right base for CCB 

3 6 $ 218 RETURN; ! with LUB address in CCB 

3 4 51 END; 


OOFC 00000 ALLOCATE: 


-WORD Save R2,R3, i 85. R6,R7 ; 0402 

7 9000 90006 00 9E 9900 MOVAB FORS$SGE eeRS : 
EF ‘ 000 MOVAB FORSSAA "rus! 1ho+32, R6 : 
FFFFFFFB 06 AC OD 90019 CMPL LOGICAL[UNIT, #-5 > 0455 | 
4A 13 00018 BEQL 1$ : 
04 Ac pd OO01A PUSHL LOGICAL UNIT + 0465. 
7 0214 BF 3C 00010 MOVZWL #5 TSP) + 0464 | 
6 08 FB 90028 CALLS #2, FORSSGET _vM : 

5B DO 000 MOVL. RO, CCB : 
0158 =F 00 6E 00 2C 00028 MOVCS #0, (SP), #0, #344, 188(CCB) + 0467. 
ooBc «= 900¢F : 
58 0120 CB 9E 00032 MOVAB 288(R11), CCB : 0468. 
(6 AB 04 AC BO 00037 MOVW LOGICAL UNIT -58(CCB) + 0469 
68 4401 8F BO 0003C MOVW #17409, ~(CCBS : 0470 | 
44 AB 5003 8F BO 00041 MOVW #20483, 68(CCB) ; 0472 | 
0094 CB 6002 8F BO 00047 MOVW #24578, 148(CCB) + 0474 _ 
C AB 44 AB 3 00046 MOVAB 68(CCB), 60(CCB) : 0476 
04 AB 00010602 8F C8 0005 BISL2 #67074, 4(CCB) > 0481, 
50 04 AC 00 00058 MOVL LOGICAL_UNIT, RO : 0482) 
6640 5B DO 0005F MOVL CCB, FORS$AA_LUB_TAB+32(RO] : | 
04 00063 RET : 0457 
05 O1F8 C6 E8 00064 1$: BLBS  V_INTFIL_QUEUE_INIT, 2$ > 0491 | 
0000v CF 00 FB 00069 CALLS. #0, INITTALIZE-INTFIL_QUEUE ; 0493 | 
01FO D6 OF 00066 28: REMQUE @INTFIL_QUEUE, CCB : 0500 | 
2A 1C 0007 BVC 3$ : 
AC DD 00075 PUSHL LOGICAL_UNIT ; 0508 | 
7E 0164 8F 3C 00078 MOVZWL #356, -TSP) : 0507 | 
67 02 FB 00070 CALLS #2, FORSSGET_VM ; | 
5B 50 pO 00080 MOVL RO, CCB ; 
0OA8 ~=sBF 00 6£ 00 2C 00083 MOVCS #0, (SP), #0, #168, 188(CCB) : 0509 | 
ooBc CB 0O008A ; | 
58 0120 CB 9€ 0008D MOVAB 288(R11), CCB : 0510 
C6 AB 04 AC BO 0009¢ MOVW  LOGICAL.UNIT, -58<CCB) : 0511 
68 01 20 9009 MOVB #1, (CCB) ; 01g | 
FF AB 10 8 009A BISB2 #16, -1(CCB) > 0513. 
4 9009 RET ; 0500 | 
5B 0120 CB 9E OOO9F 38: MOVAB 288(R11), CCB > 0516. 
04 O00A4 RET : 0519 | 

; Routine Size: 165 bytes, Routine Base: _FORSCODE + 0072 


; 458 0520 1 


1 Bliss-32 V Pa 39 1 
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Push, Pop, Allocate, and deallocate LUB/ISB/RAB 16- cbo-19 4 + 90: 1: 38 
Pop current CCB 4-Sep-1984 


wen. ROUTINE FORSSCB_ POP ZSBTTL*Pop current CCB’ 


VAX=1 
DISKS 
JSB_CB_POP NOVALOE = 


oe 
FUNCTIONAL DESCRIPTION: 


FORSS$CB_POP pops the curents 
previous pushed down LUB/ISB 
lags old current LUB/ISB/RA 


' 

i 

i 

i LUB/1SB/RAB and restores the 

i /RAB, if any (usually none). 

B as no longer having as active 1/0 statement 
CALLING SEQUENCE: 

JSB FORSS$CB_POP () 
FORMAL PARAMETERS: 

NONE 
IMPLICIT INPUTS: | 
CCB Adr. of current LUB/ISB/RAB 
IMPLICIT OUTPUTS: 

ccB Set to 0 (to catch attempt to reference after a pop). 

RETURN VALUE: 

NONE 

SIDE EFFECTS: 

i 

i 

le 


stat tie entire 1/0 system to another logical unit or none at all 


SIGNAL_STOPs FORTRAN INTERNAL ERROR if CB was not active. 


BEGIN 


BUILTIN 
TESTBITCC; 


EXTERNAL REGISTER 
CCB : REF SFORSCCB_DECL; 


LOCAL 
LOGICAL_UNIT; 


MEUM — 


'+ 

; Pop this CCB. 

LOGICAL UNIT = .CCB CLUBSW LUNI 
FORSS$A_CUR_LUB = .CCB CISBSA_ PREVIOUS. LuB); 


'¢ 
i j Dosttecete run-time format 
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8 
FORSSCB Push, Pop, Allocate, and deallocate LUB/ISB/RAB 16-Sep-1984 00:13: VAX=11 Bliss=32 V4.0-742 Page 13. FC 
2-005 Pop current CCB 1228681382 19:43:38 DISKSVMSMASTER:CFORRTL. SRCJFORCB.B32;1> (5) 2: 
; 517 78 ; 
; 51 7 IF (.CCB CISBSW_FMT_LEN] NEQ 0) : 
; #3 Bt MENBEGIN : 
3 1 ¢ FORSSF REE vM_(.CCB_CISBSW_FMT_LEN], .CCB CISBSA_FMT_BEG)); ‘ 
: 592 cee f1sB FMT -LEN} = 0; : 
; CCB CISBSATFMT-BEG) = 0; ; 
3 4 585 END; 3 
; 525 0386 ; 
; > $ 82 ‘+ $ 
; 3 bens ; Deallocate this LUB if requested to. ; 
; 3 9 0890 : 
: 2 0 $91 IF (.CCB CLUBSV_DEALLOC)) ; 
; 531 0398 THEN ; 
; 5 ¢ 059 DEALLOCATE (.LOGICAL_UNIT); : 
 s 0594 : 
3; 3 0595 ‘+ : 
3 Dae 0596 : tae old current LUB/ISB/RAB as no Longer having | : 
: 536 0597 ! an 1/0 statement in progress.. ; 
g Dar 0598 ! If LUB was not active, then signal OTS$_INTDATCOR (INTERNAL DATA : 
; 538 0599 ! CORRUPTED IN RUN-TIME LIBRARY). : 
; 539 0600 ‘a : 
; 540 0601 | ; 
> 541 0602 IF (TESTBITCC (FORSSV_IOINPROG C.LOGICAL_UNIT])) ; 
3 et¢ 060 THEN 3 
; 54 0604 IF .LOGICAL_UNIT NEQU LUBSK_LUN_ENCD : 
3; 544 0605 2 N F 
; 545 0606 3 FORSS$SIG_DATCOR (); r 
; 546 0607 $ 
3 547 0608 é CCB = 0; 
; 548 0609 
; 549 0610 2 RETURN; 
; 550 0611 2 
5s 33 0612 1 END; ! End of FORS$CB_POP routine 
7E C6 AB 32 00000 FORSSCB_POP:: | 
CVTWL  -58(CCB), LOGICAL_UNIT : 0572 | 
00000000" EF FF48 CB pO 00004 OVL  -184(CCBS, FORSS$A~CUR_LUB > 0573 
50 FF72 cB g 9000p MOVZWL =-142(CCB), RO : 0579 | 
1 0012 EQL 1$ 3 
FF7C CB DD 00014 PUSHL -132(CCB) ; 0582. 
50 DD 00018 PUSHL RO ; | 
000000006 00 02 FB OO01A CALLS #2, FORSSFREE_VM : 
FF72 CB B4 00021 CLRW ~142¢¢cB) : 0583 | 
FF7C }§=6©°CB D4 00025 CLRL = = 132 (CCB) > 0584 | 
07 FF AB 04 €1 00029 18: BBC #4, -1(CCB), 2$ : 0591 | 
6— DD 000 PUSHL LOGICAL_UNIT : 0593 | 
0000v CF 01 FB 000 CALLS #1, DEACLOCATE ; | 
10 00000000' EF 6E £4 00035 2$: BBSC LOGICAL_UNIT, FORSSV_IOINPROG, 3$ > 0602 | 
FFFFFFFB © 8F 6E D1 00030 CMPL OGICALUNIT, #-5 ; 0604 | 
07 13 00044 BEQL ; 
000000006 00 00 FB 00046 CALLS #0, FORS$SIG_DATCOR ; 0606 


7 


F 8 | 
008 Pop current CCB” ns Geel locate LUB/TSB/RAB jpn 3e en 1986 1:81:38 DISKSVMGMASTERSCFORRTL SRCIFORCB.B32z1%° (43 


B D4 0004D 3$: CLR CCB : 0608 | 
SE 8 £0 Gout ’ ADDL2 #4” SP : $608 
RSB ; 


uum 
ry 


52 
; Routine Size: 83 bytes, Routine Base: _FORSCODE + 0117 | 
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8 
Pop, Allocate, and deallocate LUB/ISB/RAB 1$-sep-19 4 90:13:36 VAX-11 Bliss-32 V 
ocate a CCB 14-Sep-1984 231: DISKSVMSMASTER: CF 
1 ROUTINE DEALLOCATE (X%SBTTL"Deallocate a CCB’ 
LOGICAL_UNIT ' The LUN on which to deallocate 
) : CALL_CCB NOVALUE = 


FUNCTIONAL DESCRIPTION: 
Release the heap storage associated with 
INTFIL QUEUE rather than deallocating ite 
CALLING SEQUENCE: 
DEALLOCATE (.LOGICAL_UNIT) 
FORMAL PARAMETERS: 
LOGICAL_UNIT.rl.v 
IMPLICIT INPUTS: 


INTF IL. QUEUE 
Several fields of the LUB 


IMPLICIT OUTPUTS: 


INTFIL_QUEUE : 
FORSS$A_LUB_TAB C.LOGICAL_UNIT] is cleared 


SIDE EFFECTS: 
Deallocates heap storage 


a CCB. This is done after 
» insert the LUB on 


The LUN for which to deallocate the CCB 


BEGIN 
BUILTIN 
INSQUE 
TESTBITCC; 


EXTERNAL REGIS 


TER 
CCB : REF $F 


ORSCCB_DECL; 
'¢ 
: Split depending on whether or not this is an internal file/ENCODE/DECODE. 


a CLUB$W_LUN] NEQ LUBSK_LUN_ENCD 
BEGIN 


'¢ 
Remove this LUB from the LUB table. 


FORSS$AA_LUB_TAB C.LOGICAL_UNIT] = 0; 


42 
TL. SRCIJFORCB.B32; 


age 15. 
19 6) 


uO 
_ 
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8 
FORSSCB Push, Pop, Allocate, and deallocate LUB/ISB/RAB 16-Sep-1984 90: yi: 38 VAX-11 Bliss-32 V4.0-742 ge 16 
2-005 Deallocate a CCB 44-Sep-1984 DISK KSVMGN TER: CFORRTL.SRCIFORCB. B32" 79 (6) | 
; «611 671 
; o1¢ 7 + 
3; $6) 67 ' Deallocate record buffer, if present. 
oe Me : 
; 618 O67 4 IF (( NOT .CCB CLUBSV_USER_RBUFJ) AND (.CCB CLUBSA_UBF] NEQA 0)) 
3 218 o°8 FORSSFREE_VM (.CCB CLUBSW_RBUF_SIZE], .CCB CLUBSA_UBFIJ); 
; 620 0680 1+ : 
; 621 0681 i Deallocate FAB if allocated by ASSIGN/FDBSET. If filename 
; © ¢ beng ' also allocated, deallocate it. 
; § 6 = 
; 624 0684 
; 625 0685 IF .CCB CLUBSA_FAB) NEQA 0 
; 626 0686 THEN 
3: 627 0687 4 BEGIN 
; 628 0688 4 CAL 
; $¢? 0689 4 HEAP_FAB: REF BLOCK C, BYTE); 
; 630 0690 4 HEAP FAB™= .CCB CLUBSA FAB); 
: 631 0691 4 -REAP_FAG CFABSB_FNS] NEQU 0 | i 
3 £3 069 4 FORSSFREE_VM (.HEAP_FAB CFABSB_FNS], .HEAP_FAB CFABSL_FNA]); : 
> 634 694 4 FORSSFREE_VM T.HEAP_FAB-CFABSB_BLNJ, .HEAP_FABY; | : 
; 635 695 3 END; | 5 
; 636 0696 3 3 
; 637 0697 ; '+ 3 
; 638 0698 i Deallocate resultant name string, if present. F 
: 639 0699 ; ie 
; 640 0700 
3; 641 0701 4 IF (.CCB CLUBSV_VIRT_RSN]J) 
3 ong 44 3 HEN 
: 64 0703 3 FORSSFREE_VM (.CCB CLUBSB_RSLJ, .CCB CLUBS$A_RSNJ); 
: 644 0704 ; 
; 645 0705 + 
: 646 0706 3 ! Deallocate RFA cache, if present. 3 
: 647 0707 
: 648 0708 3 
$ ret 3444 ee .CCB CLUBSA_RFA_CACHE_BEG] NEQA 0 
3 651 0711 FORSSFREE_VM ((RCE_K_CACHE Age * RCE_S_RCE_STRUCT), 3 
; O36 Orig .CCB TLUBSA_RFA_CACHE _BEG : 
3 65 071 ; 
: 654 ore '¢ : 
; 655 715 i Deallocate LUB memory. : 
fe Br ‘ : 
; 658 $718 4 FORSSFREE_VM ((ISBS$K_ISB_LEN + LUBSK_LUB_LEN + RABSC_B 
; 344 14h FABSC_BLN + NAMST_BLA), .CCB - (TSBSR_ISB_LEN + cues. _LUB_LEN)); 
; 661 721 RETURN; 
; 666 7 ; END; 
; 66 7 
3; 664 724 '¢ 
3; 665 725 i This is an ENCODE/DECODE/internal file. Insert the LUB on the queue. 
3 666 8288 _Use the first two longwords of the ISB as the queue Link. 
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ORSSCB Push, Pop, Allocate, and deallocate LUB/ISB/RAB 18-Sep-19 4 00:13:56 VAX=11 Bliss-32_V4.0-742 Page 18) FC 

GET current CCB 14-Sep-1984 12:31: DISKSVMSMASTER: CFORRTL.SRCJFORCB.B32;1 (7). 
; § 735 1 GLOBAL ROUTINE FORSSCB_GET X%SBTTL'GET current CCB’ ; 
: 7 § 1 : JSB_CB_GET NOVALDE = ; 
Ps 8 7 1 ‘ | ° 
; 679 738 1 S++ : 
; 680 739 1 =! FUNCTIONAL DESCRIPTION: | ; 
; 681 740 1! ‘ 
3 741 1! FORSSCB_GET gets the curents 1UB/ISB/RAB. ‘ 
3 ares 1! This routine is only called from non-shared procedures which ; 
: 684 0745 1! can't access FORSS$SA_CUR_LUB directly. (Entry vectors for ’ 
; 685 0744 1! data would mean that the code would have to change when the ‘ 
; 686 0745 1! decision to make a module shared or non-shared is changed. ; 
; 687 0746 1! Unless the LINKER got smarter and changed the level of indirection : 
; 688 0747 1! on data references which were vectored. . 
; 689 0748 1! : 
; 690 0749 1 ! CALLING SEQUENCE: ; 
; 691 0750 1! ‘ 
; 0751 1! JSB FORSSCB_GET () : 
; 0736 1i | : 
; 694 075 1 ! FORMAL PARAMETERS: : 
; 695 0754 1! ; 
; 696 0755 1! NONE : 
; 697 0756 1! : 
; 698 0757 1°! IMPLICIT INPUTS: ; 
; 699 0758 1! ‘ 
: 700 0759 1! FORSS$SA_CUR_LUB Adr. of current LUB/ISB/RAB : 
: 701 0760 1! | : 
3 370) : IMPLICIT OUTPUTS: : 
; 704 b768 2 CCB Set to adr. of current LUB/ISB/RAB. ; 
3 705 0764 1! ° 
; 706 0765 1 | RETURN VALUE: | : 
3; 707 0766 1! : 
: 708 0767 1! NONE ; 
; 709 0768 1! 3 
; 710 0769 1 | SIDE EFFECTS: | : 
3: «(711 0770 1! : 
3 ne 0771 1! NONE ; 
3; (71 Brre 1 !-- : 
: 716 0773 «1 : 
; 715 0774 § BEGIN ; 
; 716 0775 : 
; 717 0776 2 EXTERNAL REGISTER . 
; 718 0777 CCB : REF SFORSCCB_DECL; ‘ 
: 719 or7e ; 
; 720 77 CCB = .FORSSA_CUR_LUB; : 
s ey 0780 : 
: 166 0781 RETURN . 
; fe b786 s : 
; 724 07835 1 END; ! End of FORSSCB_GET routine : 
: 
| ; 
5B 00000000" EF DO 00000 FORSS$CB_GET:: $ 

MOVL FORSSA_CUR_LUB, CCB ; 0779. 

05 00007 RSB ; 0783 | 
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2-00 GET current CCB 14-Sep-1984 12:31:3 DISKSVMSMASTER: CFORRTL.SRCJFORCB. B32 r ( 


— 
=) 


; Routine Size: 8 bytes, Routine Base: _FORSCODE + 01F0 


; 725 0784 1 


FORSSCB Push 
2-005 Fetch 
: 727 785 
; 728 7 

; 729 7 

; 750 7 
i? #3 
3 f } £91 
s 7755 138 
s 736 794 
war 0795 
; 738 T38 
; 739 79 
; 740 798 
3 «6741 0799 
; rg 0800 
s 74 0801 
3 746 Bang 
3; 745 080 
: 746 0804 
s 767 0805 
; 748 0806 
: 749 0807 
; 750 0808 
ee) 0809 
3 036 0810 
; 0811 
: 754 Oalg 
, 5 081 
s 756 0814 
3; 757 0815 
; 758 0816 
; 39 0817 
: 760 0818 
; 761 0819 
: 762 0820 
s 765 0821 
: 764 3) 
3; 765 082 
: 766 0824 
; 767 0825 
: 768 0826 
3; 769 0827 
; 770 0828 
; 771 0829 
s 77 0830 
. oF 0831 
3 774 ttt 
> Fee 083 


POP tn 


GLOBAL ROUTINE FORSSCB_FETCH (ZSBTTL'Fetch a LUB 


PIII III at at a tk kk kk kk kk kk hh hh hh th th to 


Mi cecates and deallocate LUB/ISB/RAB 16 maths 00: 13:38 


ss-32 V4.0- 
UB, or 14-Sep-19 R 


VAX-11 B 742 
Disk $VMSh STER: CFORRTL.SRCIFORCB. 832; 19 


r 0° 
{ CON of the LUB 
) : CALL_CCB NOVALUE = 


144 
a DESCRIPTION: 


FORS$S$CB FETCH returns the CCB address for a given LUN without 
aeyenins, it. This is used by FORSSCLOSE AL ond FORSINQUIRE. 
ASTs must be disabled before FORS$CB_FETCR is called and not 
reenabled until after the CCB is no Conger needed. 


i CALLING SEQUENCE: 


CALL FORSSCB_FETCH (LUN) 


! FORMAL PARAMETERS: 


LUN.rl.v Logical Unit Number at which to ‘‘peek'’ 


! IMPLICIT INPUTS: 


FORS$$V_LUN_OWNR Table of LUN owners 


FORSS$AA_LUB_TAB Table of pointers to LUBs 
IMPLICIT OUTPUTS: 
ccB This register is set to 0 if the LUN is not owned by FORTRAN 
i not allocated, or to the address of the ' UB/15B/RAB 
otherwise. 


{RETURN VALUE: 
NONE 

SIDE EFFECTS: 
NONE 


BEGIN 


EXTERNAL REGISTER 
CCB : REF SFORSCCB_DECL; 


CCB = .FORS$AA_LUB_TAB C.LUN); 


RETURN; 
END; 


of routine FORSSCB_FETCH 


0000 00000 ENTRY FORSSCB_FETCH, Save nothing 
50 04 AC 00 00002 MOVL LU 
5B 00000000°EF40 D0 00006 MOVL FORSSAA. LUB_TAB+32CROJ, CCB 
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JFORCB.B32; 


32_V4.0-742 
R: CFORRTL.SRC 


VAX-11 Bliss- 
DISKSVMSMASTE 


19:57:38 


a7 1a 
RET 


14-Sep-1 


04 O000E 


_FORSCODE + 01F8 


1 


Push A ae Nene and deallocate LUB/ISB/RAB 
e r 


Fetch a 


@ 
YL 
zo 
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15 bytes, Routine Base: 


; Routine Size: 


1 


0834 


N 8 
FORSSCB Push, Pop, Allocate, and deallocate LUB/ISB/RAB 16-Sep-1984 00:13:56  VAX-11 Bliss-32_v4.0-762 Page 22 
2-00 et hext LUN Which might De open a-Sep-1986 19:51:38 i rae 85 


5 Get next LUN which might be ope 4-Sep-19 DISKSVMSMASTER: CFORRTL.SRCIJFORCB.B32 
3 778 0835 1 GLOBAL ROUTINE EORSSNERT LUN RESgTTL "Get neyt LUN which might be open’ ; 
; 779 08 § 1 FLAG: REF VECTOR [, LONG), ! First-time and last-time flag ; 
; 780 08 1 LUN: REF VECTOR C, LONG ! Logical Unit Number : 
; 781 ett: 1 ) : NOVALUE = ‘ 
; 78 0839 1 ; 
; 0840 1 !++ ; 
; 784 0841 1 ! FUNCTIONAL DESCRIPTION: : 
> «785 eK 1% ‘ 
; 786 0845 1! FORSSNEXT LUN gets a LUN which might be open. It is used by ‘ 
3; fer 0844 1! the exit fiandler declared by FORTRAN OPEN, which must Look : 
; 788 0845 1! through all the LUNs and do the DELETE or PRINT pane. ne by ‘ 
: 789 0846 1! calling CLOSE. (RMS close won't do DELETE or PRINT handling.) : 
; 790 0847 1! This routine scans the table of LUB pointers and returns those ‘ 
3; 791 0848 1! which are non-zero. The caller must use CB_PUSH and CB_POP : 
; 0849 1! to obtain control of the LUB. . 
; 0850 1! ‘ 
; 794 0851 1 ! CALLING SEQUENCE: ‘ 
; 795 0828 7% | ‘ 
; 796 0853 1! CALL FORSSNEXT_LUN (FLAG, LUN) ‘ 
; rr 0854 1! : 
; 798 0855 1 ! FORMAL PARAMETERS: ° 
; 799 0856 1! ‘ 
; 800 0857 1! FLAG.mv.r If 0 on entry, this is the first call ° 
: 801 0858 1! and LUN is invalid. If 1 on entry, LUN ° 
; 802 0859 1! is the last LUN processed. On exit, 0 ‘ 
; 803 0860 1! means that there are no more LUNs, and 1 ‘ 
; 804 0861 1! means that LUN contains the Logical Unit ‘ 
; 805 0862 1! Number to process. : ° 
; 806 08635 1! LUN.ml.r Logical Unit Number, as described above. ° 
; 807 0864 1! ‘ 
; 808 0865 1 ! IMPLICIT INPUTS: . 
; 809 0866 1! ‘ 
; 810 0867 1! FORSS$AA_LUB_TAB . 
3 811 0868 1! : 
; Se 0869 1 ! IMPLICIT OUTPUTS: | ’ 
; 813 0870 1! ; 
; 814 0871 1! NONE . 
: 815 bag , ‘ 
; 816 0873 1 ! RETURN VALUE: | : 
3; B17 0874 1! | : 
; 818 0875 1! NONE : 
; si? 0876 1! : 
: 820 0877 1 ! SIDE EFFECTS: : 
; Ss! 0878 1! | : 
: 822 0879 1! NONE : 
; 823 0880 1 !-- ; 
; 824 0881 1 : 
3s Ges baEs 2 BEGIN : 
; 826 088 : 
: 827 0884 LOCAL : 
; 828 0885 LOCAL_LUN; e 
; 829 0886 : 
; 830 0887 '¢ ee : : ; : 
; «831 0888 ! If this is the first entry, arrange to return the first logical : 
: $36 0889 ! unit. : 
3 82 0890 te : 
; «834 0891 : 


a g 


8 9 
FORSSCB Push, Pop, Allocate, and deallocate LUB/ISB/RAB 16-Sep-1984 00:13: VAX-11 Bliss-32 V4.0-742 Page 23 FI 
008 Get next LUN which might be open Hamat 4 1 00: 43:36 DISKSVMSMASTER=CFORRTL. SRCJFORCB.B32: 1° 8 1: 
; 835 089 F NOT .FLAG (0) ; 
; $ 0 38 HEN ; 
: 0894 BEGIN 5 
3 8 0895 FLAG (0) = 1; 3 
8 089 LOCAL_LUN = LUBSK_ILUN_MIN; ; 
; «6841 S898 ELSE | 3 
5 tg 0899 $ 
; 84 0900 LOCAL_LUN = .LUN [0] + 1; : 
> 844 0901 END; : 
; 845 090 ; 
; B¢$ 90 + : 
; «84 904 ! While the unit number is in range, look for a LUB entry that is ; 
; 848 0905 ' non-zero. 3 
; 849 0906 l= F 
; 850 0907 3 
4 Be) 34: WHILE (.LOCAL_LUN LEQ LUBSK_LUN_MAX) DO | ; 
3 §3g 0910 IF .FORSS$AA_LUB_TAB C.LOCAL_LUN] NEO 0 : 
3; 854 0911 THEN 3 
3s 855 Be1§ 4 BEGIN ; 
: 856 0913 4 LUN (OJ = .LOCAL_LUN; : 
; 857 0914 4 RETURN; ; 
; 858 0915 3 END; ‘ 
: 859 0916 3 LOCAL_LUN = .LOCAL_LUN + 1; ; 
; 860 0917 2 END; 3 
; 861 0918 ‘ | ; 
g6¢ 0919 '¢ 3 
; 86 0920 ! We dropped out of the loop. Return failure. ; 
> 864 0921 t= : 
: 865 O86 s 
: B66 0923 2 FLAG [0 = 0: | : 
: 867 0924 3 
; 868 0925 2 RETURN; : 
; 869 0926 1 END; ! End of FORSSNEXT_LUN routine : 
: 
| . 
0000 00000 LENTRY FORSSNEXT_LUN, Save nothing : 0835 | : 
09 04 BC €E8 00002 BLBS @FLAG, 1$ 3 0892 | 3 
04 «BC 01 DO 00006 MOVL #1, @FLAG : 0895 pr 
50 3 ff BRRRA MNEGL #8, LOCAL_LUN : 3538 : 
0 0000 BRB $ ; 089 
50 08 BC 01 C1 QOOOF 1$: ADDL3 #1, @LUN, LOCAL_LUN ; 0900 

00000077 = &F 73 b} oie 2s: tal LOCAL_LUN, #119 3 0908 | 

00000000°EF a9 3 9310 part FORS$AA_LUB_TAB+32CLOCAL_LUN) § 0910 | 

08 BC 8b 0026 MOVL  LOCAL_LUN, @LUN : 0913 | 

04 0002A RET : 0912 | 

30 06 8 B 3$ INCL OCAL_LUN : 0916 

E 11 0 BRB ; 0908 | 

04 BC Be F 4% CLRL @FLAG 3 O35. | 

4 2 RET > 0926 | 


. 9 
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FORSSCB Push, Pop, Allocate, and deallocate LUB/ISB/RAB 16-Sep-1984 00:13: VAX-11 Bliss-32 V4.0-742 Page 25. 
2-005 FORSSFP MATCH - Find current incarnation aa eet 1 09:47:38 DISKSVMSMASTER: CFORRTL. SRCJFORCB.B32: 1° 183 
; if 9 8 1 XZSBTTL'FORSSFP_MATCH = Find current incarnation’ 

; 7 9 1 GLOBAL ROUTINE FORSSFP_MATCH ( 

> 874 930 1 $ ' of ISB that has SIG_FP 

; 875 931 1 ) : CALC_CCB NOVALUE = ! in ISBSA_USER_F 

; g7e 8 ¢ 1 

3 87 9 1 l+4 

; 578 8 d } : FUNCTIONAL DESCRIPTION: 

; 880 09 $ 1! FORSSFP_MATCH is part of the I/0 in progress handling scheme. 

; 881 8 1! It is called with one argument, the value of the frane pointer 

; +88 ose 6 lS desired. It looks through the current ISB chain until it finds 

:; 88 939 1! an ISB that has the desired FP in ISBSA_USER_FP. This means that 
; «884 940 1! that ISB was the one in effect when the 1/0 Tn progress handler 

; 885 941 1! was established. If it finds one, external register CCB is set 

; 886 bk 1} to the CCB of that ISB. If no match is found, there is something 
: 887 45 1! seriously wrong in the database so error OTSS$_INTDATCOR is 

; 888 0944 1! signalled. 

; 889 0945 1! 

; 890 0946 1 ! CALLING SEQUENCE: 

; #891 0947 1! 

; 89 0948 1 | CALL FORSSFP_MATCH (SIG_FP) 

; 89 0949 1! 

; 894 0950 1 ! FORMAL PARAMETERS: 

; 895 0951 1! 

; 896 3236 1! SIG_FP.rl.v The FP present in the signal mechanism 

; 897 0953 1! List when the 1/0 in progress handler 

; 898 0954 1! was signailed. This vavue is searched for 
; 899 0955 1! in the current ISB chain. 

; 900 0956 1! 

: 901 0957 1°! IMPLICIT INPUTS: 

s; We 0958 1! 

; 903 0959 1! FORSS$AA_LUB_TAB Table of pointers to LUBs. 

>; 904 0960 1! FORS$A_CuR_CuB Address of current LUB. 

; 905 0961 1! 

3; 0962 1 ! IMPLICIT OUTPUTS: 

: 90 0965 1! 

; 90 0964 1! CCB This register is set to the address of the 
; 909 0965 1! ISB/LUB/RAB block that has SIG_FP in its 

; 910 0966 1! ISBSA_USER_FP. 

; 911 0967 1! 

; 912 0968 1 ! RETURN VALUE: 

: 913 0969 1! 

3: 914 0970 1! NONE 

: 915 971 1! 

: 916 972 1 ! SIDE EFFECTS: 

; 917 0973 1! 

: 918 0974 1! Signals OTS$_INTDATCOR (Internal data corrupted in Run-Time Library) 
; 919 0975 1! if no ISB is found that matches SIG_FP. 

; 920 976 1 !-- 

: 921 977 1 

: 9 § 0978 BEGIN 

; 9 0979 

: 924 980 EXTERNAL REGISTER 

: 925 981 CCB : REF SFORSCCB_DECL; 

; 926 98 

: 927 098 LOCAL ; : 

; 928 0984 LOGICAL_UNIT; ! Logical unit number of current LUB 


as 


Push 


uo 
1 
oe 
we 
o 
@ 


oo & 


5 3 2 5 

3 4 1 , $ 

; ¥ ‘ at 

; 9346 990 

3 955 991 

,; 9 $ 99 

; 9 99 

; 938 994 

; 939 0995 

: 940 39 

: 941 99 

; 94 998 

: 94 999 

> 944 1000 

: 945 1001 

; 94 1008 

; 94 100 

; 968 1004 

; 949 1005 

; 950 1006 

; 951 ISR? 

; 1008 

; 1009 

: 954 1010 

; 955 1011 § 
; 956 Wie 

; 957 1013 2 
; «958 1014 1 


; Routine Size: 538 bytes, 


Eee een. es 


FORSSEP ofA 


Allocate. and deallocate LUB/ISB/RAB 16- b-sep-1 984 00:47:38 


nd current incarnation 44-Sep-1984 


'+ 
Boe current LUB 


CCB = .FORSSA_CUR_LUB; 
'4 


; Search through ISB chain to find matching FP 


WHILE .CCB NEQ 0 DO 
BEGIN 
LOGICAL_UNIT = .CCB CLUBSW_LUN]; 


IF .CCB CISBSA_USER_FP] EQL .SIG_FP 
THEN 
RETURN; 

CCB = .CCB CISBSA_PREVIOUS_LUB); 

END; 
1+ 
: If we get here, then there must not have been a match. 
This should never happen, therefore signal an error. 
FORSS$SIG_DATCOR (); 
RETURN; 
END; 


0000 00000 -ENTRY FO 

5B 00000000" EF 0 00002 OVL FO 
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50 C6 AB 32 00008 CVTWL = =5 

046 AC FF4C §=©CB D1 OO00F CMPL =| 

OE 13 00015 BEQL 3$ 

5B FF48 CB 00 00017 MOVL o} 

EB 11 QO0IC BRB 1$ 

000000006 00 00 FB 49h $3 CALLS #0 
04 00025 3$ RET 
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_FORSCODE + 0260 


44 bytes, Routine Base: 


; Routine Size: 


FORSSCB Push Pee Allocate, and deallocate LUB/ Fred seo-1984 :13:5 VAX-11 Bliss-32 V4.0-742 39 F 
2-005 INITIALIZE_INTFIL_QUEUE = Initialize INTFIL_Q $ep-1984 12:31:3 DISKSVMSMASTER: CFORRTL.SRCIFORCB. B32 19 (15) 1 
: 1038 1092 1 END ! End of module FORS$SCB ; 
: 1039 1 1 
: 1040 1094 0 ELUDOM é 
FORS$CB_RET== FORS$CB_POP : 
: PSECT SUMMARY ; 
: Name Bytes Attributes | : 
:  FORSDATA 544 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON, PIC,ALIGN(2) : 
: TFORSCODE 652 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL. CON, PIC.ALIGN(2) | : 
: 
; 
; Library Statistics | : 
Sy eee ee ae Symbols -------- Pages Processing ; 
; File fetal ieeded Percent Mapped Time | : 
: _$255$DUA28:CSYSLIBISTARLET.L32;1 9776 33 0 581 00:01.0 : 
> 7$255$DUA28: CFORRTL.OBJJFORLIB.L 32:1 711 192 27 52 00:00.5 : 
: 7$255$DUA28: CFORRTL.OBJIRTLLIB.L 32:1 36 0 a 00:00.1 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/NOTRACE/LIS=LIS$:FORCB/OBJ=OBJ$:FORCB MSRC$:FORCB/UPDATE=(ENH$:FORCB) 
Size: 652 code + 544 data bytes 
; Run : 00:17.3 
; Elapsed Time: O9:83-8 | 
; Lexenes/CPU-Min; 14184 


Used: 117 pages 
; oo ation Complete 
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